home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Ext / ext.inc next >
Text File  |  1998-06-24  |  14KB  |  737 lines
  1. /******************************************************************************\
  2. **  $VER: inc/secalext/ext.inc 1.0                                            **
  3. **  Secal Release 1.0                                                         **
  4. **  Secal extension interface definitions                                     **
  5. **  Copyright (c) 1996 Tibor Kulcsar & Jozsef Makrai (TDS Development)        **
  6. \******************************************************************************/
  7.  
  8.  
  9. import x_vblankcode as x_VBlankCode:ulong;
  10. import x_vblankcnt as x_VBlankCnt:ulong;
  11.  
  12.  
  13. /******************************************************************************\
  14. ****                                A U D I O                               ****
  15. \******************************************************************************/
  16.  
  17.  
  18. struct x_mus is
  19.     private[52]:byte;
  20. ;
  21.  
  22.  
  23. /******************************************************************************\
  24. ****                             G R A P H I C S                            ****
  25. \******************************************************************************/
  26.  
  27.  
  28. struct x_scr is
  29.     private[4]:byte;
  30.  
  31.     screen:ulong;
  32.     bmps:ulong;
  33.     activebmp:ulong;
  34.     viewport:ulong;
  35.     rastport:ulong;
  36.     bitmap:ulong;
  37.     width,height:word;
  38.     depth:word;
  39.     rowwidth,rowdiff:word;
  40. ;
  41.  
  42.  
  43. struct x_bmp is
  44.     private[8]:byte;
  45.  
  46.     bitmap:ulong;
  47.     width,height:word;
  48.     depth:word;
  49.     planes:ulong;
  50.     rowwidth,rowdiff:word;
  51. ;
  52.  
  53.  
  54. struct x_ani is
  55.     private1[4]:byte;
  56.  
  57.     width,height:word;
  58.     depth:word;
  59.     numframes:word;
  60.  
  61.     private2[14]:byte;
  62.  
  63.     camg:ulong;
  64.     looping:word;
  65.     frame:word;
  66.  
  67.     private3[4]:byte;
  68. ;
  69.  
  70.  
  71. struct x_sgrp is
  72.     private1[12]:byte;
  73.  
  74.     sprarray:ulong;
  75.     sprcount:word;
  76.  
  77.     private2[2]:byte;
  78.  
  79.     depth:word;
  80.  
  81.     private3[4]:byte;
  82. ;
  83.  
  84. def XSF_BGCLEAR=$1;
  85. def XSF_BGIMAGE=$2;
  86. def XSF_BGSAVE=$4;
  87.  
  88. def XSF_MPLANEMASK=$100;
  89. def XSF_NODBLBUF=$200;
  90.  
  91.  
  92. struct x_spr is
  93.     private1[8]:byte;
  94.  
  95.     group:ulong;
  96.     userdata:ulong;
  97.  
  98.     on:word;
  99.     x,y:word;
  100.  
  101.     width,height:word;
  102.     private2[28]:byte;
  103.  
  104.     sortweight:word;
  105.  
  106.     count,frame,cycle:word;
  107.  
  108.     private3[48]:byte;
  109. ;
  110.  
  111.  
  112. struct x_sgfx is
  113.     width,height:word;
  114.     gfx:ulong;
  115.     fduration,numframes:word;
  116.     cx,cy,cw,ch:word;
  117.  
  118.     private[12]:byte;
  119. ;
  120.  
  121.  
  122. /******************************************************************************\
  123. \******************************************************************************/
  124.  
  125.  
  126. pattern x_Init is                                    # D0=SUCCESS
  127. call x_init;
  128. endp;                                                            # X_INIT
  129.  
  130.  
  131.  
  132. pattern x_Done is
  133. call x_done;
  134. endp;                                                            # X_DONE
  135.  
  136.  
  137. #*******************************************************************************
  138.  
  139.  
  140. pattern x_AudioStart(_chanmask) is                # D0=SUCCESS
  141. d0:=_chanmask;
  142. call x_audiostart;
  143. endp;                                                            # X_AUDIOSTART
  144.  
  145.  
  146.  
  147. pattern x_Mus_New(_modul,_chanmask) is                # A0=MUSIC
  148. safe a0:=_modul; d0:=_chanmask;;
  149. call x_mus_new;
  150. endp;                                                            # X_MUS_NEW
  151.  
  152.  
  153.  
  154. pattern x_Mus_Load(_filename,_chanmask) is            # A0=MUSIC
  155. safe a0:=_filename; d0:=_chanmask;;
  156. call x_mus_load;
  157. endp;                                                            # X_MUS_LOAD
  158.  
  159.  
  160.  
  161. pattern x_Mus_Dispose(_mus) is
  162. a0:=_mus;
  163. call x_mus_dispose;
  164. endp;                                                            # X_MUS_DISPOSE
  165.  
  166.  
  167.  
  168. pattern x_Mus_Play(_mus,_pos) is
  169. safe a0:=_mus; d0:=_pos;;
  170. call x_mus_play;
  171. endp;                                                            # X_MUS_PLAY
  172.  
  173.  
  174.  
  175. pattern x_Mus_Stop(_mus) is
  176. a0:=_mus;
  177. call x_mus_stop;
  178. endp;                                                            # X_MUS_STOP
  179.  
  180.  
  181.  
  182. pattern x_Mus_Continue(_mus) is
  183. a0:=_mus;
  184. call x_mus_continue;
  185. endp;                                                            # X_MUS_CONTINUE
  186.  
  187.  
  188.  
  189. pattern x_Mus_Modify(_mus,_pos,_volume) is
  190. safe a0:=_mus; d0:=_pos; d1:=_volume;;
  191. call x_mus_modify;
  192. endp;                                                            # X_MUS_MODIFY
  193.  
  194.  
  195.  
  196. pattern x_PlaySound(_start,_length,_repstart,_replen,_channel,_period,_volume) is
  197. push d2\d3\d4;
  198.  
  199. safe
  200.     a0:=_start; d0.l:=_length; a1:=_repstart; d1.l:=_replen;
  201.     d2:=_channel; d3:=_period; d4:=_volume;
  202. ;
  203. call x_playsound;
  204.  
  205. pop d2\d3\d4;
  206. endp;                                                            # X_PLAYSOUND
  207.  
  208.  
  209.  
  210. pattern x_StopSound(_channel) is
  211. d0:=_channel;
  212. call x_stopsound;
  213. endp;                                                            # X_STOPSOUND
  214.  
  215.  
  216.  
  217. pattern x_ModifySound(_channel,_period,_volume) is
  218. push d2;
  219.  
  220. safe d0:=_channel; d1:=_period; d2:=_volume;;
  221. call x_modifysound;
  222.  
  223. pop d2;
  224. endp;                                                            # X_MODIFYSOUND
  225.  
  226.  
  227.  
  228. pattern x_PlaySoundQ(_pri,_start,_length,_repstart,_replen,
  229.     _channel,_period,_volume) is
  230. push d2\d3\d4\d5;
  231.  
  232. safe
  233.     d0:=_pri; a0:=_start; d1.l:=_length; a1:=_repstart; d2.l:=_replen;
  234.     d3:=_channel; d4:=_period; d5:=_volume;
  235. ;
  236. call x_playsoundq;
  237.  
  238. pop d2\d3\d4\d5;
  239. endp;                                                            # X_PLAYSOUNDQ
  240.  
  241.  
  242.  
  243. pattern x_SetFilter(_state) is
  244. d0:=_state;
  245. call x_setfilter;
  246. endp;                                                            # X_SETFILTER
  247.  
  248.  
  249. #*******************************************************************************
  250.  
  251.  
  252. #                                                                    D0=SUCCESS
  253.  
  254. pattern x_GraphicsStart is
  255. call x_graphicsstart;
  256. endp;                                                            # X_GRAPHICSSTART
  257.  
  258.  
  259.  
  260. pattern x_Scr_Open(_mode,_width,_height,_depth,_title,_colors,_taglist) is
  261. #                                                                    A0=SCR
  262. push d2\d3\a2;
  263.  
  264. safe
  265.     d0.l:=_mode; d1:=_width; d2:=_height; d3:=_depth; a0:=_title;
  266.     a1:=_colors; a2:=_taglist;
  267. ;
  268. call x_scr_open;
  269.  
  270. pop d2\d3\a2;
  271. endp;                                                            # X_SCR_OPEN
  272.  
  273.  
  274.  
  275. pattern x_Scr_Close(_scr) is
  276. a0:=_scr;
  277. call x_scr_close;
  278. endp;                                                            # X_SCR_CLOSE
  279.  
  280.  
  281.  
  282. pattern x_Scr_AddBmp(_scr) is                    # D0=SUCCESS
  283. a0:=_scr;
  284. call x_scr_addbmp;
  285. endp;                                                            # X_SCR_ADDBMP
  286.  
  287.  
  288.  
  289. pattern x_Scr_ActivateBmp(_scr,_index,_xoffset,_yoffset) is
  290. safe a0:=_scr; a1.w:=_index; d0:=_xoffset; d1:=_yoffset;;
  291. call x_scr_activatebmp;
  292. endp;                                                            # X_SCR_ACTIVATEBMP
  293.  
  294.  
  295.  
  296. pattern x_Scr_GetBmp(_scr,_index) is                # A0=X_BMP
  297. safe a0:=_scr; d0:=_index;;
  298. call x_scr_getbmp;
  299. endp;                                                            # X_SCR_GETBMP
  300.  
  301.  
  302.  
  303. pattern x_Scr_LoadRGB8(_scr,_colors,_start,_count) is
  304. safe a0:=_scr; a1:=_colors; d0:=_start; d1:=_count;;
  305. call x_scr_loadrgb8;
  306. endp;                                                            # X_SCR_LOADRGB8
  307.  
  308.  
  309.  
  310. pattern x_RGB8Intensity(_source,_count,_dest,_intensity,_target) is
  311. push d2;
  312.  
  313. safe
  314.     a0:=_source; d0:=_count; a1:=_dest;
  315.     d1:=_intensity; d2.l:=_target;
  316. ;
  317. call x_rgb8intensity;
  318.  
  319. pop d2;
  320. endp;                                                            # X_RGB8INTENSITY
  321.  
  322.  
  323.  
  324. pattern x_Bmp_Alloc(_width,_height,_depth) is            # A0=X_BMP
  325. safe d0:=_width; d1:=_height; a0.w:=_depth;;
  326. call x_bmp_alloc;
  327. endp;                                                            # X_BMP_ALLOC
  328.  
  329.  
  330.  
  331. pattern x_Bmp_Free(_bmp) is
  332. a0:=_bmp;
  333. call x_bmp_free;
  334. endp;                                                            # X_BMP_FREE
  335.  
  336.  
  337.  
  338. pattern x_Ani_New(_animdata,_looping) is                # A0=X_ANI, A1=RBG8, D0=NUMCOLORS
  339. safe a0:=_animdata; d0:=_looping;;
  340. call x_ani_new;
  341. endp;                                                            # X_ANI_NEW
  342.  
  343.  
  344.  
  345. pattern x_Ani_Load(_filename,_looping) is                # A0=X_ANI, A1=RBG8, D0=NUMCOLORS
  346. safe a0:=_filename; d0:=_looping;;
  347. call x_ani_load;
  348. endp;                                                            # X_ANI_LOAD
  349.  
  350.  
  351.  
  352. pattern x_Ani_Dispose(_ani) is
  353. a0:=_ani;
  354. call x_ani_dispose;
  355. endp;                                                            # X_ANI_DISPOSE
  356.  
  357.  
  358.  
  359. pattern x_Ani_DoFrame(_ani,_bmp,_x,_y,_scr) is            # D0=DURATION
  360. push a2;
  361.  
  362. safe a0:=_ani; a1:=_bmp; d0:=_x; d1:=_y; a2:=_scr;;
  363. call x_ani_doframe;
  364.  
  365. pop a2;
  366. endp;                                                            # X_ANI_DOFRAME
  367.  
  368.  
  369.  
  370. pattern x_Spr_NewGrp(_sprarray,_sprcnt,_flags,_depth) is    # A0=X_SGRP, 0
  371. safe a0:=_sprarray; d0:=_sprcnt; d1:=_flags; a1.w:=_depth;;
  372. call x_spr_newgrp;
  373. endp;                                                            # X_SPR_NEWGRP
  374.  
  375.  
  376.  
  377. pattern x_Spr_DisposeGrp(_sgrp) is
  378. a0:=_sgrp;
  379. call x_spr_disposegrp;
  380. endp;                                                            # X_SPR_DISPOSEGRP
  381.  
  382.  
  383.  
  384. pattern x_Spr_Draw(_sgrp,_destbmp,_xoffset,_yoffset) is
  385. safe a0:=_sgrp; a1:=_destbmp; d0:=_xoffset; d1:=_yoffset;;
  386. call x_spr_draw;
  387. endp;                                                            # X_SPR_DRAW
  388.  
  389.  
  390.  
  391. pattern x_Spr_Restore(_sgrp,_destbmp,_bgnd,_bgndwidth) is
  392. safe a0:=_sgrp; a1:=_destbmp; d0.l:=_bgnd; d1:=_bgndwidth;;
  393. call x_spr_restore;
  394. endp;                                                            # X_SPR_RESTORE
  395.  
  396.  
  397.  
  398. pattern x_Spr_PrepGfx(_sgfxarray,_sgrp,_count) is        # D0=SUCCESS
  399. safe a0:=_sgfxarray; a1:=_sgrp; d0:=_count;;
  400. call x_spr_prepgfx;
  401. endp;                                                            # X_SPR_PREPGFX
  402.  
  403.  
  404.  
  405. pattern x_Spr_UnPrepGfx(_sgfxarray,_count) is
  406. safe a0:=_sgfxarray; d0:=_count;;
  407. call x_spr_unprepgfx;
  408. endp;                                                            # X_SPR_UNPREPGFX
  409.  
  410.  
  411.  
  412. pattern x_Spr_ChngGfx(_sgfx,_spr,_nextframe) is
  413. safe a0:=_sgfx; a1:=_spr; d0:=_nextframe;;
  414. call x_spr_chnggfx;
  415. endp;                                                            # X_SPR_CHNGGFX
  416.  
  417.  
  418.  
  419. pattern x_Spr_CollChk(_mode,_spr1,_spr2) is            # D0=COLLISION
  420. safe d0:=_mode; a0:=_spr1; a1:=_spr2;;
  421. call x_spr_collchk;
  422. endp;                                                            # X_SPR_COLLCHK
  423.  
  424.  
  425.  
  426. pattern x_Spr_Sort(_sgrp,_customsort) is
  427. safe a0:=_sgrp; d0:=_customsort;;
  428. call x_spr_sort;
  429. endp;                                                            # X_SPR_SORT
  430.  
  431.  
  432.  
  433. pattern x_Spr_CutMsk(_spr,_data,_x,_y,_width,_height) is
  434. push d2\d3;
  435. safe a0:=_spr; a1:=_data; d0:=_x; d1:=_y; d2:=_width; d3:=_height;;
  436. call x_spr_cutmsk;
  437. pop d2\d3;
  438. endp;                                                            # X_SPR_CUTMSK
  439.  
  440.  
  441.  
  442. pattern x_Spr_GrpCutMsk(_sgrp,_data,_x,_y,_width,_height) is
  443. push d2\d3;
  444. safe a0:=_sgrp; a1:=_data; d0:=_x; d1:=_y; d2:=_width; d3:=_height;;
  445. call x_spr_grpcutmsk;
  446. pop d2\d3;
  447. endp;                                                            # X_SPR_GRPCUTMSK
  448.  
  449.  
  450.  
  451. pattern x_Spr_AddBgBuf(_spr,_size) is                # D0=SUCCESS
  452. safe a0:=_spr; d0.l:=_size;;
  453. call x_spr_addbgbuf;
  454. endp;                                                            # X_SPR_ADDBGBUF
  455.  
  456.  
  457.  
  458. pattern x_Spr_GrpAddBgBuf(_sgrp) is                # D0=SUCCESS
  459. a0:=_sgrp;
  460. call x_spr_grpaddbgbuf;
  461. endp;                                                            # X_SPR_GRPADDBGBUF
  462.  
  463.  
  464.  
  465. pattern x_Spr_AddMskBuf(_spr,_size) is                # D0=SUCCESS
  466. safe a0:=_spr; d0.l:=_size;;
  467. call x_spr_addmskbuf;
  468. endp;                                                            # X_SPR_ADDMSKBUF
  469.  
  470.  
  471.  
  472. pattern x_Spr_GrpAddMskBuf(_sgrp) is                # D0=SUCCESS
  473. a0:=_sgrp;
  474. call x_spr_grpaddmskbuf;
  475. endp;                                                            # X_SPR_GRPADDMSKBUF
  476.  
  477.  
  478.  
  479. pattern x_MakeMask(_source,_dest,_width,_height,_depth,_mplane) is
  480. push d2\d3;
  481. safe a0:=_source; a1:=_dest; d0:=_width; d1:=_height; d2:=_depth; d3:=_mplane;;
  482. call x_makemask;
  483. pop d2\d3;
  484. endp;                                                            # X_MAKEMASK
  485.  
  486.  
  487.  
  488. pattern x_ClrBlit(_dst,_dstw,_width,_height) is
  489. push d2;
  490.  
  491. safe a0:=_dst; d0:=_dstw; d1:=_width; d2:=_height;;
  492. call x_clrblit;
  493.  
  494. pop d2;
  495. endp;                                                            # X_CLRBLIT
  496.  
  497.  
  498.  
  499. pattern x_MoveBlit(_src,_srcw,_dst,_dstw,_width,_height) is
  500. push d2\d3;
  501.  
  502. safe
  503.     a0:=_src; d0:=_srcw; a1:=_dst; d1:=_dstw;
  504.     d2:=_width; d3:=_height;
  505. ;
  506. call x_moveblit;
  507.  
  508. pop d2\d3;
  509. endp;                                                            # X_MOVEBLIT
  510.  
  511.  
  512. #-------------------------------------------------------------------------------
  513.  
  514.  
  515. pattern x_C2P_4(_chunky,_planar,_cwidth,_cheight,_prowwidth,_prowdiff) is
  516. push d2\d3;
  517. safe
  518.     a0:=_chunky; a1:=_planar; d0:=_cwidth; d1:=_cheight;
  519.     d2:=_prowwidth; d3:=_prowdiff;
  520. ;
  521. call x_c2p_4;
  522. pop d2\d3;
  523. endp;                                                            # X_C2P_4
  524.  
  525.  
  526. pattern x_C2P_4x(_chunky,_planar,_cwidth,_cheight,_prowwidth,_prowdiff) is
  527. push d2\d3;
  528. safe
  529.     a0:=_chunky; a1:=_planar; d0:=_cwidth; d1:=_cheight;
  530.     d2:=_prowwidth; d3:=_prowdiff;
  531. ;
  532. call x_c2p_4x;
  533. pop d2\d3;
  534. endp;                                                            # X_C2P_4X
  535.  
  536.  
  537. pattern x_C2P_4xy(_chunky,_planar,_cwidth,_cheight,_prowwidth,_prowdiff) is
  538. push d2\d3;
  539. safe
  540.     a0:=_chunky; a1:=_planar; d0:=_cwidth; d1:=_cheight;
  541.     d2:=_prowwidth; d3:=_prowdiff;
  542. ;
  543. call x_c2p_4xy;
  544. pop d2\d3;
  545. endp;                                                            # X_C2P_4XY
  546.  
  547.  
  548. pattern x_C2P_6(_chunky,_planar,_cwidth,_cheight,_prowwidth,_prowdiff) is
  549. push d2\d3;
  550. safe
  551.     a0:=_chunky; a1:=_planar; d0:=_cwidth; d1:=_cheight;
  552.     d2:=_prowwidth; d3:=_prowdiff;
  553. ;
  554. call x_c2p_6;
  555. pop d2\d3;
  556. endp;                                                            # X_C2P_6
  557.  
  558.  
  559. pattern x_C2P_6x(_chunky,_planar,_cwidth,_cheight,_prowwidth,_prowdiff) is
  560. push d2\d3;
  561. safe
  562.     a0:=_chunky; a1:=_planar; d0:=_cwidth; d1:=_cheight;
  563.     d2:=_prowwidth; d3:=_prowdiff;
  564. ;
  565. call x_c2p_6x;
  566. pop d2\d3;
  567. endp;                                                            # X_C2P_6X
  568.  
  569.  
  570. pattern x_C2P_6xy(_chunky,_planar,_cwidth,_cheight,_prowwidth,_prowdiff) is
  571. push d2\d3;
  572. safe
  573.     a0:=_chunky; a1:=_planar; d0:=_cwidth; d1:=_cheight;
  574.     d2:=_prowwidth; d3:=_prowdiff;
  575. ;
  576. call x_c2p_6xy;
  577. pop d2\d3;
  578. endp;                                                            # X_C2P_6XY
  579.  
  580.  
  581. pattern x_C2P_8(_chunky,_planar,_cwidth,_cheight,_prowwidth,_prowdiff) is
  582. push d2\d3;
  583. safe
  584.     a0:=_chunky; a1:=_planar; d0:=_cwidth; d1:=_cheight;
  585.     d2:=_prowwidth; d3:=_prowdiff;
  586. ;
  587. call x_c2p_8;
  588. pop d2\d3;
  589. endp;                                                            # X_C2P_8
  590.  
  591.  
  592. pattern x_C2P_8x(_chunky,_planar,_cwidth,_cheight,_prowwidth,_prowdiff) is
  593. push d2\d3;
  594. safe
  595.     a0:=_chunky; a1:=_planar; d0:=_cwidth; d1:=_cheight;
  596.     d2:=_prowwidth; d3:=_prowdiff;
  597. ;
  598. call x_c2p_8x;
  599. pop d2\d3;
  600. endp;                                                            # X_C2P_8X
  601.  
  602.  
  603. pattern x_C2P_8xy(_chunky,_planar,_cwidth,_cheight,_prowwidth,_prowdiff) is
  604. push d2\d3;
  605. safe
  606.     a0:=_chunky; a1:=_planar; d0:=_cwidth; d1:=_cheight;
  607.     d2:=_prowwidth; d3:=_prowdiff;
  608. ;
  609. call x_c2p_8xy;
  610. pop d2\d3;
  611. endp;                                                            # X_C2P_8XY
  612.  
  613.  
  614. #*******************************************************************************
  615.  
  616.  
  617. pattern x_Randomize is
  618. call x_randomize;
  619. endp;                                                            # X_RANDOMIZE
  620.  
  621.  
  622.  
  623. pattern x_Rnd is                                                # D0=RANDOM
  624. call x_rnd;
  625. endp;                                                            # X_RND
  626.  
  627.  
  628. #-------------------------------------------------------------------------------
  629.  
  630.  
  631. pattern x_LoadFile(_filename,_memflags) is        # A0=LOADED FILE, D0.L=SIZE
  632. safe a0:=_filename; d0.l:=_memflags;;
  633. call x_loadfile;
  634. endp;                                                            # X_LOADFILE
  635.  
  636.  
  637.  
  638. pattern x_UnLoadFile(_loadedfile) is
  639. a0:=_loadedfile;
  640. call x_unloadfile;
  641. endp;                                                            # X_UNLOADFILE
  642.  
  643.  
  644. #-------------------------------------------------------------------------------
  645.  
  646.  
  647. pattern x_SetTaskPri(_task,_pri) is                # D0=OLD PRI
  648. safe a0:=_task; d0:=_pri;;
  649. call x_settaskpri;
  650. endp;                                                            # X_SETTASKPRI
  651.  
  652.  
  653.  
  654. pattern x_RevertTaskPri is
  655. call x_reverttaskpri;
  656. endp;                                                            # X_REVERTTASKPRI
  657.  
  658.  
  659.  
  660. pattern x_EasyRequest(_window,_titletxt,_bodytxt,_gadgettxt) is # D0=NUM
  661. safe a0:=_window; a1:=_titletxt; d0.l:=_bodytxt; d1.l:=_gadgettxt;;
  662. call x_easyrequest;
  663. endp;                                                            # X_EASYREQUEST
  664.  
  665.  
  666.  
  667. pattern x_DisplayBeep(_scr) is
  668. a0:=_scr;
  669. call x_displaybeep;
  670. endp;                                                            #X_DISPLAYBEEP
  671.  
  672.  
  673.  
  674. pattern x_Delay(_ticks) is
  675. d0.l:=_ticks;
  676. call x_delay;
  677. endp;                                                            # X_DELAY
  678.  
  679.  
  680.  
  681. pattern x_OwnBlitter is
  682. call x_ownblitter;
  683. endp;                                                            # X_OWNBLITTER
  684.  
  685.  
  686.  
  687. pattern x_DisownBlitter is
  688. call x_disownblitter;
  689. endp;                                                            # X_DISOWNBLITTER
  690.  
  691.  
  692.  
  693. pattern x_WaitBlit is
  694. call x_waitblit;
  695. endp;                                                            # X_WAITBLIT
  696.  
  697.  
  698.  
  699. pattern x_WaitTOF is
  700. call x_waittof;
  701. endp;                                                            # X_WAITTOF
  702.  
  703.  
  704.  
  705. pattern x_VBeamPos is                            # D0.L=BEAMPOS
  706. call x_vbeampos;
  707. endp;                                                            # X_VBEAMPOS
  708.  
  709.  
  710.  
  711. pattern x_WBenchToFront is                    # D0=SUCCESS
  712. call x_wbenchtofront;
  713. endp;                                                            # X_WBENCHTOFRONT
  714.  
  715.  
  716.  
  717. pattern x_WBenchToBack is                    # D0=SUCCESS
  718. call x_wbenchtoback;
  719. endp;                                                            # X_WBENCHTOBACK
  720.  
  721.  
  722.  
  723. pattern x_OpenWorkbench is                    # D0=SUCCESS
  724. call x_openworkbench;
  725. endp;                                                            # X_OPENWORKBENCH
  726.  
  727.  
  728.  
  729. pattern x_CloseWorkbench is                    # D0=SUCCESS
  730. call x_closeworkbench;
  731. endp;                                                            # X_CLOSEWORKBENCH
  732.  
  733.  
  734. /******************************************************************************\
  735. \******************************************************************************/
  736.  
  737.